home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
IEMSI_.PPS
< prev
next >
Wrap
Text File
|
1996-08-08
|
1KB
|
37 lines
;----------------------------------------------------------------------------
;
; IEMSI Example
;
; Make sure you include the files IEMSI.MSG and IEMSI.CFG in your app
; as they are needed by the iemsi library
;
;----------------------------------------------------------------------------
#ppe
#libpath ..\..\lib
#use iemsi
; launch IEMSI detection
Iemsi()
; Here you could simply write your login PPE, we will just report infos
; returned by IEMSI...
If (!IEMSI_OK) Then
PrintLn "User does not have IEMSI capabilities"
Else
PrintLn "IEMSI tells that the user's name is ", IEMSI_ClientName
If (U_RecNum(Upper(IEMSI_ClientName)) <> -1) Then
Print "and that his password is "
If (IEMSI_ClientPassword = "") Then
PrintLn "not in the packet..."
Else
PrintLn """", IEMSI_ClientPassword, """"
Endif
Else
Println "He's new on this system!"
Endif
If (IEMSI_CrkTerminate) PrintLn "He is using a cracked version of terminate! :)"
Endif